unit SecDuo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dRoot, DB, StdCtrls, Buttons, ExtCtrls, ComCtrls, dxSkinsCore,
  dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinPumpkin,
  dxSkinSilver, dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters,
  dxSkinValentine, dxSkinXmas2008Blue, Menus, cxLookAndFeelPainters,
  cxButtons, cxTextEdit, cxControls, cxContainer, cxEdit, cxImage, cxDBEdit, AcroPDFLib_TLB,
  OleCtrls;

type
  TfmSecDuo = class(TdlgRoot)
    edPlan: TcxDBImage;
    Panel2: TPanel;
    cxTextEdit1: TcxTextEdit;
    AcrRdr: TAcroPDF;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }


  end;

var
  fmSecDuo: TfmSecDuo;
  AcrRdr: TAcroPDF;
implementation
uses invtypes;

{$R *.dfm}

procedure TfmSecDuo.FormShow(Sender: TObject);
begin
  inherited;

  if Screen.MonitorCount > 1 then begin
    fmSecDuo.Left := Screen.Monitors[1].Left;
    fmSecDuo.Top := Screen.Monitors[1].Top;
    fmSecDuo.Width := 1440;
    fmSecDuo.Height := 790;
  end;
end;

end.

